80 GOSUB1000
100 OPEN 1,4,7
110 PRINTCHR$(147);CHR$(14);CHR$(8);TAB(13)"[212][217][208][197][215][210][201][212][197][210] 64[146]"
120 PRINT"........10........20........30........40[146]"
130 PRINTCHR$(126);:IF (PEEK(211))>0 THEN  POKE 211,(PEEK(211)-1)
140 GET C$:IF C$="" GOTO 140
150 IF C$=CHR$(133)GOTO 230
160 IF C$=CHR$(13)THEN  GOTO 250
170 IF ASC(C$)<>20 THEN PRINT C$;:S$=S$+C$:GOTO 190
180 IF (PEEK(211))>0 THEN PRINT C$;
190 IF LEN(S$)>78 THEN C$="":GOTO 250
200 IF LEN(S$)=0 THEN 220
210 IF ASC(C$)=20 THEN S$=MID$(S$,1,(LEN(S$)-1))
220 GOTO 130
230 CLOSE 1:PRINT CHR$(147);CHR$(9);CHR$(142):LOAD"HELLO CONNECT",8
240 END
250 PRINT " ";C$;:PRINT#1,S$:S$=""
260 IF PEEK(214)>23 THEN PRINT CHR$(147):GOTO 110
270 GOTO 130
1000 REM TITLE SCREEN
1010 PRINT"[147][144]":POKE53280,0:POKE53281,5
1020 PRINTSPC(12)"[212]YPEWRITER 64"
1022 PRINT
1024 PRINTSPC(12)" WRITTEN BY "
1026 PRINT
1028 PRINTSPC(12)"[211]TEVE [195]ONROY"
1029 PRINT""
1030 PRINT"   [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
1032 PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
1034 PRINT""
1040 PRINT"    [208]LEASE PRESS A KEY TO CONTINUE."
1042 POKE198,0:WAIT198,1:GETA$
1050 :
1060 PRINT"[147]  [208]LEASE MAKE SURE YOUR PRINTER IS ON."
1061 PRINT" [208]LEASE PRESS A KEY WHEN YOU ARE READY."
1062 PRINT"    <[217]OU MAY PRESS '[209]' TO QUIT NOW>"
1065 POKE198,0:WAIT198,1:GETA$:IFA$="Q"THEN230
1070 OPEN4,4:PRINT#4:CLOSE4:IFST=0THENRETURN
1080 PRINT"    [201] CAN'T SEEM TO FIND A PRINTER..."
1082 PRINT"           [208]LEASE TRY AGAIN!"
1084 POKE144,0:FORDL=1TO2000:NEXT:GOTO1060